home *** CD-ROM | disk | FTP | other *** search
/ CinE CD 6 / CinE CD ROM 06.iso / pc / main.dir / 00037_Script_37 < prev    next >
Text File  |  1996-06-22  |  357b  |  14 lines
  1. global gmode, gnumfilms, gfilmindex
  2.  
  3. on exitFrame
  4.   -- there are some films at the end of the list which cannot be viewed
  5.   --set num = gnumfilms - 6
  6.   set num = gnumfilms
  7.   if (gmode = "auto") then
  8.     set gfilmindex = gfilmindex + 1
  9.     if (gfilmindex >= num) then
  10.       set gfilmindex = 1
  11.     end if
  12.     displayfilm (gfilmindex)
  13.   end if
  14. end